﻿Public Class Main
    Dim _descompresor As KillerBytes

    Private Sub btnLoadFile_Click(sender As Object, e As EventArgs) Handles btnLoadFile.Click
        Dim result As DialogResult = OpenFileDialog.ShowDialog()
        If result = DialogResult.OK Then
            _descompresor = New KillerBytes(OpenFileDialog.FileName)
            Escribe("Terminado!")
        End If
    End Sub

    Public Sub Escribe(ByVal mensaje As String)
        lblConsole.Text = lblConsole.Text & vbNewLine & mensaje
        lblConsole.SelectionStart = lblConsole.TextLength
        lblConsole.ScrollToCaret()
        Refresh()
    End Sub
End Class
